home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / calendar / cal / cal.frm < prev    next >
Text File  |  1995-10-24  |  29KB  |  970 lines
  1. VERSION 2.00
  2. Begin Form Cal 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   4065
  6.    ClientLeft      =   3615
  7.    ClientTop       =   1920
  8.    ClientWidth     =   3480
  9.    Height          =   4470
  10.    Icon            =   CAL.FRX:0000
  11.    Left            =   3555
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   4065
  15.    ScaleWidth      =   3480
  16.    Top             =   1575
  17.    Width           =   3600
  18.    Begin CommandButton Command3 
  19.       Caption         =   "&Cancel"
  20.       Height          =   315
  21.       Left            =   1860
  22.       TabIndex        =   53
  23.       Top             =   3660
  24.       Width           =   1095
  25.    End
  26.    Begin CommandButton Command2 
  27.       Caption         =   "O&K"
  28.       Height          =   315
  29.       Left            =   540
  30.       TabIndex        =   52
  31.       Top             =   3660
  32.       Width           =   1155
  33.    End
  34.    Begin VScrollBar VScroll1 
  35.       Height          =   495
  36.       Left            =   3180
  37.       Max             =   1492
  38.       Min             =   2050
  39.       TabIndex        =   48
  40.       TabStop         =   0   'False
  41.       Top             =   3000
  42.       Value           =   1492
  43.       Width           =   255
  44.    End
  45.    Begin CommandButton Command1 
  46.       Caption         =   "Dec"
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   315
  54.       Index           =   11
  55.       Left            =   1920
  56.       TabIndex        =   47
  57.       TabStop         =   0   'False
  58.       Top             =   3240
  59.       Width           =   375
  60.    End
  61.    Begin CommandButton Command1 
  62.       Caption         =   "Nov"
  63.       FontBold        =   0   'False
  64.       FontItalic      =   0   'False
  65.       FontName        =   "MS Sans Serif"
  66.       FontSize        =   8.25
  67.       FontStrikethru  =   0   'False
  68.       FontUnderline   =   0   'False
  69.       Height          =   315
  70.       Index           =   10
  71.       Left            =   1560
  72.       TabIndex        =   46
  73.       TabStop         =   0   'False
  74.       Top             =   3240
  75.       Width           =   375
  76.    End
  77.    Begin CommandButton Command1 
  78.       BackColor       =   &H00C0C0C0&
  79.       Caption         =   "Oct"
  80.       FontBold        =   0   'False
  81.       FontItalic      =   0   'False
  82.       FontName        =   "MS Sans Serif"
  83.       FontSize        =   8.25
  84.       FontStrikethru  =   0   'False
  85.       FontUnderline   =   0   'False
  86.       Height          =   315
  87.       Index           =   9
  88.       Left            =   1200
  89.       TabIndex        =   45
  90.       TabStop         =   0   'False
  91.       Top             =   3240
  92.       Width           =   375
  93.    End
  94.    Begin CommandButton Command1 
  95.       Caption         =   "Sep"
  96.       FontBold        =   0   'False
  97.       FontItalic      =   0   'False
  98.       FontName        =   "MS Sans Serif"
  99.       FontSize        =   8.25
  100.       FontStrikethru  =   0   'False
  101.       FontUnderline   =   0   'False
  102.       Height          =   315
  103.       Index           =   8
  104.       Left            =   840
  105.       TabIndex        =   44
  106.       TabStop         =   0   'False
  107.       Top             =   3240
  108.       Width           =   375
  109.    End
  110.    Begin CommandButton Command1 
  111.       Caption         =   "Aug"
  112.       FontBold        =   0   'False
  113.       FontItalic      =   0   'False
  114.       FontName        =   "MS Sans Serif"
  115.       FontSize        =   8.25
  116.       FontStrikethru  =   0   'False
  117.       FontUnderline   =   0   'False
  118.       Height          =   315
  119.       Index           =   7
  120.       Left            =   480
  121.       TabIndex        =   43
  122.       TabStop         =   0   'False
  123.       Top             =   3240
  124.       Width           =   375
  125.    End
  126.    Begin CommandButton Command1 
  127.       Caption         =   "Jul"
  128.       FontBold        =   0   'False
  129.       FontItalic      =   0   'False
  130.       FontName        =   "MS Sans Serif"
  131.       FontSize        =   8.25
  132.       FontStrikethru  =   0   'False
  133.       FontUnderline   =   0   'False
  134.       Height          =   315
  135.       Index           =   6
  136.       Left            =   120
  137.       TabIndex        =   42
  138.       TabStop         =   0   'False
  139.       Top             =   3240
  140.       Width           =   375
  141.    End
  142.    Begin CommandButton Command1 
  143.       Caption         =   "Jun"
  144.       FontBold        =   0   'False
  145.       FontItalic      =   0   'False
  146.       FontName        =   "MS Sans Serif"
  147.       FontSize        =   8.25
  148.       FontStrikethru  =   0   'False
  149.       FontUnderline   =   0   'False
  150.       Height          =   315
  151.       Index           =   5
  152.       Left            =   1920
  153.       TabIndex        =   41
  154.       TabStop         =   0   'False
  155.       Top             =   2940
  156.       Width           =   375
  157.    End
  158.    Begin CommandButton Command1 
  159.       Caption         =   "May"
  160.       FontBold        =   0   'False
  161.       FontItalic      =   0   'False
  162.       FontName        =   "MS Sans Serif"
  163.       FontSize        =   8.25
  164.       FontStrikethru  =   0   'False
  165.       FontUnderline   =   0   'False
  166.       Height          =   315
  167.       Index           =   4
  168.       Left            =   1560
  169.       TabIndex        =   40
  170.       TabStop         =   0   'False
  171.       Top             =   2940
  172.       Width           =   375
  173.    End
  174.    Begin CommandButton Command1 
  175.       Caption         =   "Apr"
  176.       FontBold        =   0   'False
  177.       FontItalic      =   0   'False
  178.       FontName        =   "MS Sans Serif"
  179.       FontSize        =   8.25
  180.       FontStrikethru  =   0   'False
  181.       FontUnderline   =   0   'False
  182.       Height          =   315
  183.       Index           =   3
  184.       Left            =   1200
  185.       TabIndex        =   39
  186.       TabStop         =   0   'False
  187.       Top             =   2940
  188.       Width           =   375
  189.    End
  190.    Begin CommandButton Command1 
  191.       Caption         =   "Mar"
  192.       FontBold        =   0   'False
  193.       FontItalic      =   0   'False
  194.       FontName        =   "MS Sans Serif"
  195.       FontSize        =   8.25
  196.       FontStrikethru  =   0   'False
  197.       FontUnderline   =   0   'False
  198.       Height          =   315
  199.       Index           =   2
  200.       Left            =   840
  201.       TabIndex        =   38
  202.       TabStop         =   0   'False
  203.       Top             =   2940
  204.       Width           =   375
  205.    End
  206.    Begin CommandButton Command1 
  207.       Caption         =   "Feb"
  208.       FontBold        =   0   'False
  209.       FontItalic      =   0   'False
  210.       FontName        =   "MS Sans Serif"
  211.       FontSize        =   8.25
  212.       FontStrikethru  =   0   'False
  213.       FontUnderline   =   0   'False
  214.       Height          =   315
  215.       Index           =   1
  216.       Left            =   480
  217.       TabIndex        =   37
  218.       TabStop         =   0   'False
  219.       Top             =   2940
  220.       Width           =   375
  221.    End
  222.    Begin CommandButton Command1 
  223.       BackColor       =   &H00C0C0C0&
  224.       Caption         =   "Jan"
  225.       FontBold        =   0   'False
  226.       FontItalic      =   0   'False
  227.       FontName        =   "MS Sans Serif"
  228.       FontSize        =   8.25
  229.       FontStrikethru  =   0   'False
  230.       FontUnderline   =   0   'False
  231.       Height          =   315
  232.       Index           =   0
  233.       Left            =   120
  234.       TabIndex        =   36
  235.       TabStop         =   0   'False
  236.       Top             =   2940
  237.       Width           =   375
  238.    End
  239.    Begin Label Label1 
  240.       Alignment       =   2  'Center
  241.       FontBold        =   0   'False
  242.       FontItalic      =   0   'False
  243.       FontName        =   "MS Sans Serif"
  244.       FontSize        =   8.25
  245.       FontStrikethru  =   0   'False
  246.       FontUnderline   =   0   'False
  247.       Height          =   315
  248.       Index           =   36
  249.       Left            =   720
  250.       TabIndex        =   50
  251.       Top             =   2400
  252.       Width           =   375
  253.    End
  254.    Begin Label Label1 
  255.       Alignment       =   2  'Center
  256.       FontBold        =   0   'False
  257.       FontItalic      =   0   'False
  258.       FontName        =   "MS Sans Serif"
  259.       FontSize        =   8.25
  260.       FontStrikethru  =   0   'False
  261.       FontUnderline   =   0   'False
  262.       Height          =   315
  263.       Index           =   35
  264.       Left            =   300
  265.       TabIndex        =   51
  266.       Top             =   2400
  267.       Width           =   375
  268.    End
  269.    Begin Label Label3 
  270.       FontBold        =   0   'False
  271.       FontItalic      =   0   'False
  272.       FontName        =   "MS Sans Serif"
  273.       FontSize        =   8.25
  274.       FontStrikethru  =   0   'False
  275.       FontUnderline   =   0   'False
  276.       Height          =   255
  277.       Left            =   2400
  278.       TabIndex        =   49
  279.       Top             =   3120
  280.       Width           =   675
  281.    End
  282.    Begin Shape Shape2 
  283.       Height          =   435
  284.       Left            =   120
  285.       Top             =   60
  286.       Width           =   3255
  287.    End
  288.    Begin Shape Shape1 
  289.       Height          =   2295
  290.       Left            =   120
  291.       Top             =   540
  292.       Width           =   3255
  293.    End
  294.    Begin Label Label2 
  295.       BackColor       =   &H00C0C0C0&
  296.       Caption         =   " Sun   Mon   Tue   Wed   Thu   Fri   Sat"
  297.       FontBold        =   0   'False
  298.       FontItalic      =   0   'False
  299.       FontName        =   "MS Sans Serif"
  300.       FontSize        =   8.25
  301.       FontStrikethru  =   0   'False
  302.       FontUnderline   =   0   'False
  303.       Height          =   255
  304.       Left            =   300
  305.       TabIndex        =   0
  306.       Top             =   180
  307.       Width           =   2955
  308.    End
  309.    Begin Label Label1 
  310.       Alignment       =   2  'Center
  311.       FontBold        =   0   'False
  312.       FontItalic      =   0   'False
  313.       FontName        =   "MS Sans Serif"
  314.       FontSize        =   8.25
  315.       FontStrikethru  =   0   'False
  316.       FontUnderline   =   0   'False
  317.       Height          =   315
  318.       Index           =   34
  319.       Left            =   2820
  320.       TabIndex        =   1
  321.       Top             =   2040
  322.       Width           =   375
  323.    End
  324.    Begin Label Label1 
  325.       Alignment       =   2  'Center
  326.       FontBold        =   0   'False
  327.       FontItalic      =   0   'False
  328.       FontName        =   "MS Sans Serif"
  329.       FontSize        =   8.25
  330.       FontStrikethru  =   0   'False
  331.       FontUnderline   =   0   'False
  332.       Height          =   315
  333.       Index           =   33
  334.       Left            =   2400
  335.       TabIndex        =   2
  336.       Top             =   2040
  337.       Width           =   375
  338.    End
  339.    Begin Label Label1 
  340.       Alignment       =   2  'Center
  341.       FontBold        =   0   'False
  342.       FontItalic      =   0   'False
  343.       FontName        =   "MS Sans Serif"
  344.       FontSize        =   8.25
  345.       FontStrikethru  =   0   'False
  346.       FontUnderline   =   0   'False
  347.       Height          =   315
  348.       Index           =   32
  349.       Left            =   1980
  350.       TabIndex        =   3
  351.       Top             =   2040
  352.       Width           =   375
  353.    End
  354.    Begin Label Label1 
  355.       Alignment       =   2  'Center
  356.       FontBold        =   0   'False
  357.       FontItalic      =   0   'False
  358.       FontName        =   "MS Sans Serif"
  359.       FontSize        =   8.25
  360.       FontStrikethru  =   0   'False
  361.       FontUnderline   =   0   'False
  362.       Height          =   315
  363.       Index           =   31
  364.       Left            =   1560
  365.       TabIndex        =   4
  366.       Top             =   2040
  367.       Width           =   375
  368.    End
  369.    Begin Label Label1 
  370.       Alignment       =   2  'Center
  371.       FontBold        =   0   'False
  372.       FontItalic      =   0   'False
  373.       FontName        =   "MS Sans Serif"
  374.       FontSize        =   8.25
  375.       FontStrikethru  =   0   'False
  376.       FontUnderline   =   0   'False
  377.       Height          =   315
  378.       Index           =   30
  379.       Left            =   1140
  380.       TabIndex        =   5
  381.       Top             =   2040
  382.       Width           =   375
  383.    End
  384.    Begin Label Label1 
  385.       Alignment       =   2  'Center
  386.       FontBold        =   0   'False
  387.       FontItalic      =   0   'False
  388.       FontName        =   "MS Sans Serif"
  389.       FontSize        =   8.25
  390.       FontStrikethru  =   0   'False
  391.       FontUnderline   =   0   'False
  392.       Height          =   315
  393.       Index           =   29
  394.       Left            =   720
  395.       TabIndex        =   6
  396.       Top             =   2040
  397.       Width           =   375
  398.    End
  399.    Begin Label Label1 
  400.       Alignment       =   2  'Center
  401.       FontBold        =   0   'False
  402.       FontItalic      =   0   'False
  403.       FontName        =   "MS Sans Serif"
  404.       FontSize        =   8.25
  405.       FontStrikethru  =   0   'False
  406.       FontUnderline   =   0   'False
  407.       Height          =   315
  408.       Index           =   28
  409.       Left            =   300
  410.       TabIndex        =   7
  411.       Top             =   2040
  412.       Width           =   375
  413.    End
  414.    Begin Label Label1 
  415.       Alignment       =   2  'Center
  416.       FontBold        =   0   'False
  417.       FontItalic      =   0   'False
  418.       FontName        =   "MS Sans Serif"
  419.       FontSize        =   8.25
  420.       FontStrikethru  =   0   'False
  421.       FontUnderline   =   0   'False
  422.       Height          =   315
  423.       Index           =   27
  424.       Left            =   2820
  425.       TabIndex        =   8
  426.       Top             =   1680
  427.       Width           =   375
  428.    End
  429.    Begin Label Label1 
  430.       Alignment       =   2  'Center
  431.       FontBold        =   0   'False
  432.       FontItalic      =   0   'False
  433.       FontName        =   "MS Sans Serif"
  434.       FontSize        =   8.25
  435.       FontStrikethru  =   0   'False
  436.       FontUnderline   =   0   'False
  437.       Height          =   315
  438.       Index           =   26
  439.       Left            =   2400
  440.       TabIndex        =   9
  441.       Top             =   1680
  442.       Width           =   375
  443.    End
  444.    Begin Label Label1 
  445.       Alignment       =   2  'Center
  446.       FontBold        =   0   'False
  447.       FontItalic      =   0   'False
  448.       FontName        =   "MS Sans Serif"
  449.       FontSize        =   8.25
  450.       FontStrikethru  =   0   'False
  451.       FontUnderline   =   0   'False
  452.       Height          =   315
  453.       Index           =   25
  454.       Left            =   1980
  455.       TabIndex        =   10
  456.       Top             =   1680
  457.       Width           =   375
  458.    End
  459.    Begin Label Label1 
  460.       Alignment       =   2  'Center
  461.       FontBold        =   0   'False
  462.       FontItalic      =   0   'False
  463.       FontName        =   "MS Sans Serif"
  464.       FontSize        =   8.25
  465.       FontStrikethru  =   0   'False
  466.       FontUnderline   =   0   'False
  467.       Height          =   315
  468.       Index           =   24
  469.       Left            =   1560
  470.       TabIndex        =   11
  471.       Top             =   1680
  472.       Width           =   375
  473.    End
  474.    Begin Label Label1 
  475.       Alignment       =   2  'Center
  476.       FontBold        =   0   'False
  477.       FontItalic      =   0   'False
  478.       FontName        =   "MS Sans Serif"
  479.       FontSize        =   8.25
  480.       FontStrikethru  =   0   'False
  481.       FontUnderline   =   0   'False
  482.       Height          =   315
  483.       Index           =   23
  484.       Left            =   1140
  485.       TabIndex        =   12
  486.       Top             =   1680
  487.       Width           =   375
  488.    End
  489.    Begin Label Label1 
  490.       Alignment       =   2  'Center
  491.       FontBold        =   0   'False
  492.       FontItalic      =   0   'False
  493.       FontName        =   "MS Sans Serif"
  494.       FontSize        =   8.25
  495.       FontStrikethru  =   0   'False
  496.       FontUnderline   =   0   'False
  497.       Height          =   315
  498.       Index           =   22
  499.       Left            =   720
  500.       TabIndex        =   13
  501.       Top             =   1680
  502.       Width           =   375
  503.    End
  504.    Begin Label Label1 
  505.       Alignment       =   2  'Center
  506.       FontBold        =   0   'False
  507.       FontItalic      =   0   'False
  508.       FontName        =   "MS Sans Serif"
  509.       FontSize        =   8.25
  510.       FontStrikethru  =   0   'False
  511.       FontUnderline   =   0   'False
  512.       Height          =   315
  513.       Index           =   21
  514.       Left            =   300
  515.       TabIndex        =   14
  516.       Top             =   1680
  517.       Width           =   375
  518.    End
  519.    Begin Label Label1 
  520.       Alignment       =   2  'Center
  521.       FontBold        =   0   'False
  522.       FontItalic      =   0   'False
  523.       FontName        =   "MS Sans Serif"
  524.       FontSize        =   8.25
  525.       FontStrikethru  =   0   'False
  526.       FontUnderline   =   0   'False
  527.       Height          =   315
  528.       Index           =   20
  529.       Left            =   2820
  530.       TabIndex        =   15
  531.       Top             =   1320
  532.       Width           =   375
  533.    End
  534.    Begin Label Label1 
  535.       Alignment       =   2  'Center
  536.       FontBold        =   0   'False
  537.       FontItalic      =   0   'False
  538.       FontName        =   "MS Sans Serif"
  539.       FontSize        =   8.25
  540.       FontStrikethru  =   0   'False
  541.       FontUnderline   =   0   'False
  542.       Height          =   315
  543.       Index           =   19
  544.       Left            =   2400
  545.       TabIndex        =   16
  546.       Top             =   1320
  547.       Width           =   375
  548.    End
  549.    Begin Label Label1 
  550.       Alignment       =   2  'Center
  551.       FontBold        =   0   'False
  552.       FontItalic      =   0   'False
  553.       FontName        =   "MS Sans Serif"
  554.       FontSize        =   8.25
  555.       FontStrikethru  =   0   'False
  556.       FontUnderline   =   0   'False
  557.       Height          =   315
  558.       Index           =   18
  559.       Left            =   1980
  560.       TabIndex        =   17
  561.       Top             =   1320
  562.       Width           =   375
  563.    End
  564.    Begin Label Label1 
  565.       Alignment       =   2  'Center
  566.       FontBold        =   0   'False
  567.       FontItalic      =   0   'False
  568.       FontName        =   "MS Sans Serif"
  569.       FontSize        =   8.25
  570.       FontStrikethru  =   0   'False
  571.       FontUnderline   =   0   'False
  572.       Height          =   315
  573.       Index           =   17
  574.       Left            =   1560
  575.       TabIndex        =   18
  576.       Top             =   1320
  577.       Width           =   375
  578.    End
  579.    Begin Label Label1 
  580.       Alignment       =   2  'Center
  581.       FontBold        =   0   'False
  582.       FontItalic      =   0   'False
  583.       FontName        =   "MS Sans Serif"
  584.       FontSize        =   8.25
  585.       FontStrikethru  =   0   'False
  586.       FontUnderline   =   0   'False
  587.       Height          =   315
  588.       Index           =   16
  589.       Left            =   1140
  590.       TabIndex        =   19
  591.       Top             =   1320
  592.       Width           =   375
  593.    End
  594.    Begin Label Label1 
  595.       Alignment       =   2  'Center
  596.       FontBold        =   0   'False
  597.       FontItalic      =   0   'False
  598.       FontName        =   "MS Sans Serif"
  599.       FontSize        =   8.25
  600.       FontStrikethru  =   0   'False
  601.       FontUnderline   =   0   'False
  602.       Height          =   315
  603.       Index           =   15
  604.       Left            =   720
  605.       TabIndex        =   20
  606.       Top             =   1320
  607.       Width           =   375
  608.    End
  609.    Begin Label Label1 
  610.       Alignment       =   2  'Center
  611.       FontBold        =   0   'False
  612.       FontItalic      =   0   'False
  613.       FontName        =   "MS Sans Serif"
  614.       FontSize        =   8.25
  615.       FontStrikethru  =   0   'False
  616.       FontUnderline   =   0   'False
  617.       Height          =   315
  618.       Index           =   14
  619.       Left            =   300
  620.       TabIndex        =   21
  621.       Top             =   1320
  622.       Width           =   375
  623.    End
  624.    Begin Label Label1 
  625.       Alignment       =   2  'Center
  626.       FontBold        =   0   'False
  627.       FontItalic      =   0   'False
  628.       FontName        =   "MS Sans Serif"
  629.       FontSize        =   8.25
  630.       FontStrikethru  =   0   'False
  631.       FontUnderline   =   0   'False
  632.       Height          =   315
  633.       Index           =   13
  634.       Left            =   2820
  635.       TabIndex        =   22
  636.       Top             =   960
  637.       Width           =   375
  638.    End
  639.    Begin Label Label1 
  640.       Alignment       =   2  'Center
  641.       FontBold        =   0   'False
  642.       FontItalic      =   0   'False
  643.       FontName        =   "MS Sans Serif"
  644.       FontSize        =   8.25
  645.       FontStrikethru  =   0   'False
  646.       FontUnderline   =   0   'False
  647.       Height          =   315
  648.       Index           =   12
  649.       Left            =   2400
  650.       TabIndex        =   23
  651.       Top             =   960
  652.       Width           =   375
  653.    End
  654.    Begin Label Label1 
  655.       Alignment       =   2  'Center
  656.       FontBold        =   0   'False
  657.       FontItalic      =   0   'False
  658.       FontName        =   "MS Sans Serif"
  659.       FontSize        =   8.25
  660.       FontStrikethru  =   0   'False
  661.       FontUnderline   =   0   'False
  662.       Height          =   315
  663.       Index           =   11
  664.       Left            =   1980
  665.       TabIndex        =   24
  666.       Top             =   960
  667.       Width           =   375
  668.    End
  669.    Begin Label Label1 
  670.       Alignment       =   2  'Center
  671.       FontBold        =   0   'False
  672.       FontItalic      =   0   'False
  673.       FontName        =   "MS Sans Serif"
  674.       FontSize        =   8.25
  675.       FontStrikethru  =   0   'False
  676.       FontUnderline   =   0   'False
  677.       Height          =   315
  678.       Index           =   10
  679.       Left            =   1560
  680.       TabIndex        =   25
  681.       Top             =   960
  682.       Width           =   375
  683.    End
  684.    Begin Label Label1 
  685.       Alignment       =   2  'Center
  686.       FontBold        =   0   'False
  687.       FontItalic      =   0   'False
  688.       FontName        =   "MS Sans Serif"
  689.       FontSize        =   8.25
  690.       FontStrikethru  =   0   'False
  691.       FontUnderline   =   0   'False
  692.       Height          =   315
  693.       Index           =   9
  694.       Left            =   1140
  695.       TabIndex        =   26
  696.       Top             =   960
  697.       Width           =   375
  698.    End
  699.    Begin Label Label1 
  700.       Alignment       =   2  'Center
  701.       FontBold        =   0   'False
  702.       FontItalic      =   0   'False
  703.       FontName        =   "MS Sans Serif"
  704.       FontSize        =   8.25
  705.       FontStrikethru  =   0   'False
  706.       FontUnderline   =   0   'False
  707.       Height          =   315
  708.       Index           =   8
  709.       Left            =   720
  710.       TabIndex        =   27
  711.       Top             =   960
  712.       Width           =   375
  713.    End
  714.    Begin Label Label1 
  715.       Alignment       =   2  'Center
  716.       FontBold        =   0   'False
  717.       FontItalic      =   0   'False
  718.       FontName        =   "MS Sans Serif"
  719.       FontSize        =   8.25
  720.       FontStrikethru  =   0   'False
  721.       FontUnderline   =   0   'False
  722.       Height          =   315
  723.       Index           =   7
  724.       Left            =   300
  725.       TabIndex        =   28
  726.       Top             =   960
  727.       Width           =   375
  728.    End
  729.    Begin Label Label1 
  730.       Alignment       =   2  'Center
  731.       FontBold        =   0   'False
  732.       FontItalic      =   0   'False
  733.       FontName        =   "MS Sans Serif"
  734.       FontSize        =   8.25
  735.       FontStrikethru  =   0   'False
  736.       FontUnderline   =   0   'False
  737.       Height          =   315
  738.       Index           =   6
  739.       Left            =   2820
  740.       TabIndex        =   29
  741.       Top             =   600
  742.       Width           =   375
  743.    End
  744.    Begin Label Label1 
  745.       Alignment       =   2  'Center
  746.       FontBold        =   0   'False
  747.       FontItalic      =   0   'False
  748.       FontName        =   "MS Sans Serif"
  749.       FontSize        =   8.25
  750.       FontStrikethru  =   0   'False
  751.       FontUnderline   =   0   'False
  752.       Height          =   315
  753.       Index           =   5
  754.       Left            =   2400
  755.       TabIndex        =   30
  756.       Top             =   600
  757.       Width           =   375
  758.    End
  759.    Begin Label Label1 
  760.       Alignment       =   2  'Center
  761.       FontBold        =   0   'False
  762.       FontItalic      =   0   'False
  763.       FontName        =   "MS Sans Serif"
  764.       FontSize        =   8.25
  765.       FontStrikethru  =   0   'False
  766.       FontUnderline   =   0   'False
  767.       Height          =   315
  768.       Index           =   4
  769.       Left            =   1980
  770.       TabIndex        =   31
  771.       Top             =   600
  772.       Width           =   375
  773.    End
  774.    Begin Label Label1 
  775.       Alignment       =   2  'Center
  776.       FontBold        =   0   'False
  777.       FontItalic      =   0   'False
  778.       FontName        =   "MS Sans Serif"
  779.       FontSize        =   8.25
  780.       FontStrikethru  =   0   'False
  781.       FontUnderline   =   0   'False
  782.       Height          =   315
  783.       Index           =   3
  784.       Left            =   1560
  785.       TabIndex        =   32
  786.       Top             =   600
  787.       Width           =   375
  788.    End
  789.    Begin Label Label1 
  790.       Alignment       =   2  'Center
  791.       FontBold        =   0   'False
  792.       FontItalic      =   0   'False
  793.       FontName        =   "MS Sans Serif"
  794.       FontSize        =   8.25
  795.       FontStrikethru  =   0   'False
  796.       FontUnderline   =   0   'False
  797.       Height          =   315
  798.       Index           =   2
  799.       Left            =   1140
  800.       TabIndex        =   33
  801.       Top             =   600
  802.       Width           =   375
  803.    End
  804.    Begin Label Label1 
  805.       Alignment       =   2  'Center
  806.       BackColor       =   &H00FFFFFF&
  807.       FontBold        =   0   'False
  808.       FontItalic      =   0   'False
  809.       FontName        =   "MS Sans Serif"
  810.       FontSize        =   8.25
  811.       FontStrikethru  =   0   'False
  812.       FontUnderline   =   0   'False
  813.       Height          =   315
  814.       Index           =   1
  815.       Left            =   720
  816.       TabIndex        =   34
  817.       Top             =   600
  818.       Width           =   375
  819.    End
  820.    Begin Label Label1 
  821.       Alignment       =   2  'Center
  822.       BackColor       =   &H00FFFFFF&
  823.       FontBold        =   0   'False
  824.       FontItalic      =   0   'False
  825.       FontName        =   "MS Sans Serif"
  826.       FontSize        =   8.25
  827.       FontStrikethru  =   0   'False
  828.       FontUnderline   =   0   'False
  829.       ForeColor       =   &H00000000&
  830.       Height          =   315
  831.       Index           =   0
  832.       Left            =   300
  833.       TabIndex        =   35
  834.       Top             =   600
  835.       Width           =   375
  836.    End
  837. End
  838. Option Explicit
  839.  
  840.  
  841. Dim mi_day As Integer
  842. Dim mi_month As Integer
  843. Dim mi_year As Integer
  844.  
  845. Dim mi_previndex As Integer
  846.  
  847. Sub Command1_Click (index As Integer)
  848.  
  849. mi_month = index + 1
  850.  
  851. Call Fill_Box(index + 1, mi_year, mi_day)
  852.  
  853. Cal.Caption = Format$(DateValue(mi_month & "/" & mi_day & "/" & mi_year), "dddddd")
  854.  
  855. End Sub
  856.  
  857. Sub Command2_Click ()
  858.  
  859. Clipboard.SetText Cal.Caption, 1
  860. Unload Cal
  861.  
  862. End Sub
  863.  
  864. Sub Command3_Click ()
  865.  
  866. Unload Cal
  867.  
  868.  
  869. End Sub
  870.  
  871. Sub Fill_Box (xmon As Integer, xyear As Integer, xday As Integer)
  872.  
  873. Dim xm As Integer
  874. Dim index As Integer
  875. Dim xd As Integer
  876. Dim xds As String
  877.  
  878. ' Clear Boxes
  879.  
  880. For index = 0 To 36
  881.     Label1(index).Caption = ""
  882. Next index
  883.  
  884.  
  885. index = Format(DateValue(xmon & "/" & "01" & "/" & xyear), "w")
  886. xd = 1
  887. xm = xmon
  888.  
  889. Do While xm = xmon
  890.  
  891.     Label1(index - 1) = xd
  892.  
  893.     index = index + 1
  894.    
  895.     xm = Format(DateValue(xmon & "/" & xd & "/" & xyear) + 1, "mm")
  896.  
  897.     xd = xd + 1
  898.  
  899. Loop
  900.  
  901. If xday = 0 Then Exit Sub
  902.  
  903. '
  904. ' xday has the date we want to highlight
  905. ' figure out what the index is
  906. '
  907.  
  908. index = Format(DateValue(xmon & "/" & "01" & "/" & xyear), "w")
  909.  
  910. If Label1(xday + (index - 2)).Caption <> "" Then
  911.     Call Label1_Click(xday + (index - 2))
  912. Else
  913.     Call Label1_Click((index - 1))
  914.  
  915. End If
  916.  
  917. End Sub
  918.  
  919. Sub Form_Load ()
  920.  
  921. ' Get Todays Date
  922.  
  923. mi_previndex = -1
  924.  
  925. mi_day = Format(Now, "dd")
  926. mi_year = Format(Now, "yyyy")
  927. mi_month = Format(Now, "mm")
  928.  
  929. Label3.Caption = mi_year
  930. Vscroll1.Value = mi_year
  931.  
  932. Cal.Caption = mi_month & "/" & mi_day & "/" & mi_year
  933.  
  934. Call Fill_Box(10, CInt(Label3.Caption), mi_day)
  935.  
  936. End Sub
  937.  
  938. Sub Label1_Click (index As Integer)
  939.  
  940. If Label1(index).Caption = "" Then
  941.     Exit Sub
  942. End If
  943.  
  944. If mi_previndex <> -1 Then
  945.     Label1(mi_previndex).BorderStyle = 0
  946.     Label1(mi_previndex).ForeColor = &H80000008
  947. End If
  948.  
  949. mi_previndex = index
  950. mi_day = CInt(Label1(index).Caption)
  951.  
  952. Label1(mi_previndex).BorderStyle = 1
  953. Label1(mi_previndex).ForeColor = &HC000C0
  954.  
  955. Cal.Caption = Format$(DateValue(mi_month & "/" & mi_day & "/" & mi_year), "dddddd")
  956.  
  957. End Sub
  958.  
  959. Sub VScroll1_Change ()
  960.  
  961. Label3.Caption = Vscroll1.Value
  962. mi_year = Vscroll1.Value
  963.  
  964. Call Fill_Box(mi_month, mi_year, mi_day)
  965.  
  966. Cal.Caption = Format$(DateValue(mi_month & "/" & mi_day & "/" & mi_year), "dddddd")
  967.  
  968. End Sub
  969.  
  970.